home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Exec 3 / CD_Magazyn_EXEC_nr_3.iso / Recent / misc / edu / WhirlDisc.lha / WhirlDisc / Install WhirlDisc < prev    next >
Text File  |  2000-08-14  |  2KB  |  82 lines
  1. ; Installer for WhirlDisc. V0.1.
  2. ; Copyright © 2000 Neil Cafferkey.
  3. ; $VER: "Install WhirlDisc" 0.1 (11.8.2000)
  4.  
  5.  
  6. ; Set constants
  7.  
  8. (set #kick-too-low-msg "Kickstart 3.0 or greater is required.")
  9. (set #askdir-prompt
  10.    "Where should %s be installed?\nA new drawer will be created there."
  11. )
  12. (set #dest-exists-msg "\"%s\" already exists.")
  13.  
  14. ; Check Kickstart version
  15.  
  16. (if (< (/ (getversion) 65536) 39)
  17.    (abort #kick-too-low-msg)
  18. )
  19.  
  20.  
  21. ; Ask where to install to
  22.  
  23. (set #default-dest
  24.    (tackon
  25.       (askdir
  26.          (prompt (#askdir-prompt @app-name))
  27.          (default @default-dest)
  28.          (help @askdir-help)
  29.          (disk)
  30.       )
  31.       @app-name
  32.    )
  33. )
  34.  
  35. (set @default-dest #default-dest)
  36.  
  37.  
  38. ; Check that destination directory doesn't already exist and create it
  39.  
  40. (if (OR (exists @default-dest) (exists (cat @default-dest ".info")))
  41.    (abort (#dest-exists-msg @default-dest))
  42.    (
  43.       (makedir @default-dest (infos))
  44.       (onerror
  45.          (run
  46.             ("Delete \"%s\" \"%s\" ALL FORCE"
  47.                @default-dest (cat @default-dest ".info")
  48.             )
  49.          )
  50.       )
  51.    )
  52. )
  53.  
  54.  
  55. ; Create a directory for the link files
  56.  
  57. (makedir (tackon @default-dest "links"))
  58.  
  59.  
  60. ; Copy program files to destination directory
  61.  
  62. (copyfiles
  63.    (source "hidden")
  64.    (dest @default-dest)
  65.    (pattern "#?")
  66.    (infos)
  67.    (help @copyfiles-help)
  68. )
  69.  
  70.  
  71. ; Copy manual and GPL to destination directory
  72.  
  73. (copyfiles
  74.    (source "")
  75.    (dest @default-dest)
  76.    (pattern "(Manual|gpl.txt)")
  77.    (infos)
  78.    (help @copyfiles-help)
  79. )
  80.  
  81.  
  82.